home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / CUGUK / PROG_TOO / C027B.ZIP / LIBFP / FPCMP.S < prev    next >
Text File  |  1990-03-30  |  758b  |  35 lines
  1. * Copyright (c) 1988 by Sozobon, Limited.  Author: Johann Ruegg
  2. *
  3. * Permission is granted to anyone to use this software for any purpose
  4. * on any computer system, and to redistribute it freely, with the
  5. * following restrictions:
  6. * 1) No charge may be made other than reasonable charges for reproduction.
  7. * 2) Modified versions must be clearly marked as such.
  8. * 3) The authors are not responsible for any harmful consequences
  9. *    of using this software, even if they result from defects in it.
  10. *
  11.     .globl    fpcmp
  12.     .globl    _fpcmp
  13. fpcmp:
  14. _fpcmp:
  15.     move.l    4(sp),d0
  16.     move.l    8(sp),d1
  17.  
  18.     cmp.b    d1,d0
  19.     bne    L1
  20.     cmp.l    d1,d0
  21. L1:
  22.     rts
  23.  
  24.     .globl    fpneg
  25.     .globl    _fpneg
  26. fpneg:
  27. _fpneg:
  28.     move.l    4(sp),d0
  29.  
  30.     tst.b    d0
  31.     beq    L2
  32.     eor.b    #$80,d0
  33. L2:
  34.     rts
  35.